home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V4D10.D64 / lite demo (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  5.2 KB  |  158 lines
  1. 10 REM ************************
  2. 20 REM * LITE MENUS! O/S DEMO *
  3. 30 REM * CREATED BY           *
  4. 40 REM * MADHU SURENDRANATH   *
  5. 50 REM * (C) COPYRIGHT JAN 91 *
  6. 60 REM ************************
  7. 70 POKE 53280,0:POKE53281,0:POKE646,15:POKE53272,23:PRINTCHR$(8)
  8. 80 PRINT"[147][215]ELCOME TO THE  [204][201][212][197] [205][197][206][213][211]! [146] DEMO"
  9. 100 PRINT"[194]Y [205]ADHU [211]URENDRANATH."
  10. 110 PRINT"[204][201][212][197] [205][197][206][213][211]! WILL TRANSFORM YOUR WAY"
  11. 120 PRINT"OF CREATING MENUS.  [201]NSTEAD OF WRITING"
  12. 130 PRINT"COMPLEX ROUTINES IN [205]/[195] TO GET"
  13. 140 PRINT"HIGHLIGHT BARS, THIS ROUTINE WILL DO"
  14. 150 PRINT"THAT JOB FOR YOU, AND IT IS WRITTEN IN"
  15. 160 PRINT"[194][193][211][201][195]!!"
  16. 170 PRINT"[193]LL YOU HAVE TO DO IS SETUP A FEW"
  17. 180 PRINT"PARAMETERS AND A LIST OF THE SUBJECT"
  18. 190 PRINT"HEADINGS."
  19. 200 GOSUB 990
  20. 210 PRINT"[147][201]F YOUR STILL NOT CONVICTED THAT IT "
  21. 220 PRINT"COULD BE SO EASY, WATCH THIS SPACE "
  22. 230 PRINT"[208][204][197][193][211][197][160][212][217][208][197][160][201][206] 5 [211][213][194][202][197][195][212][211]"
  23. 240 FORJ=1TO5
  24. 250 PRINT" (";J;")";:INPUT O$(J):IFO$(J)=""THEN250
  25. 260 LN=LEN(O$(J)):IFLN>LEN(O$(J-1))THENDL=J
  26. 265 NEXTJ
  27. 270 PRINT"[208][204][197][193][211][197][160][212][217][208][197] [201][206][160][216] CO-ORD[160][198][207][210][160][212][200][197][160][204][201][211][212]"
  28. 280 PRINT"X CO-ORD = ";:INPUT X:IFX<1ORX>30 THEN 280 :DX=X
  29. 290 PRINT"[208][204][197][193][211][197][160][212][217][208][197][160][201][206][160][217] CO-ORD [198][207][210][160][212][200][197][160][204][201][211][212]"
  30. 300 PRINT"Y CO-ORD = ";:INPUT Y:IFY<1ORY>20 THEN 300 :DY=Y
  31. 310 DX=X: DY=Y:GOSUB 990
  32. 320 PRINT"[147] [212]HE LIST WILL BE PRINTED AT:"
  33. 325 PRINT"X=";X;"  Y=";Y : X1=Y
  34. 330 X=0:GOSUB12000:X=X1
  35. 340 FOR J=1 TO 5
  36. 350 PRINT TAB(X);O$(J):
  37. 360 NEXT J
  38. 365 GOSUB 990
  39. 370 PRINT"[147][206]OW WE HAVE TO PUT THE BAR IN FOR THE"
  40. 380 PRINT"HIGHLIGHT.  [206]OW WE SETUP SOME           VARIABLES."
  41. 390 PRINT"[200]ERE IS A LIST OF PARAMETERS :-"
  42. 400 PRINT"[205][201][206] : [205]INIMUM NUMBER OF THE LIST"
  43. 410 PRINT"[205][193][216] : [205]AXIMUM NUMBER OF THE LIST"
  44. 420 PRINT"[208][211]  : [206]UMBER OF LINES FROM TOP OF             SCREEN ([217] CO-ORD -1)"
  45. 430 PRINT"[193]   : [195]ONTROL VARIABLE (SET TO 1)"
  46. 440 PRINT"[212][193]  : [206]UMBER OF CHARS FROM LEFT EDGE OF       THE SCREEN ([216] CO-ORD)"
  47. 450 PRINT"AND THAT IS IT."
  48. 460 PRINT"[211]O IN THIS CASE, THE PARAMETERS ARE :-"
  49. 470 PRINT"[205][201][206]=1:[205][193][216]=5:[208][211]=";(Y-1);":[193]=1:[212][193]=";X;":"
  50. 480 PRINT"[199][207][211][213][194]11000"
  51. 490 GOSUB990
  52. 500 PRINT"[147][201]T IS USUALLY NICE TO SURROUND THE "
  53. 510 PRINT"MENU WITH A BORDER."
  54. 520 PRINT"[206]OW WITH [204][201][212][197]-[205][197][206][213][211]! NO MORE LOOKING"
  55. 530 PRINT"FOR THOSE GRAPHIC CHARACTERS, JUST"
  56. 540 PRINT"GIVE X,Y CO-ORDS, X,Y SIZE LENGTH AND"
  57. 550 PRINT"A CHOICE OF ONE OF THE 3 SURROUNDS."
  58. 560 PRINT"[212]HE SURROUNDS ARE DEFINED AS :-"
  59. 570 PRINT"[195][200]=1 : '[166]' HATCHED BOX"
  60. 580 PRINT"[195][200]=2 : '[176]' SQUARE BOX"
  61. 590 PRINT"[195][200]=3 : '(' CIRCULAR BOX"
  62. 600 PRINT"[217]OU CAN ALSO CHANGE THE COLOUR IF YOU"
  63. 610 PRINT"WISH."
  64. 620 GOSUB 990
  65. 630 PRINT"[147][197]XAMPLE DEFINITION OF A BOX."
  66. 640 PRINT"[216]=10:[217]=8:[216]1=15:[217]1=8:[195][207][204]=4:[195][200]=1:         [199][207][211][213][194]10000"
  67. 650 PRINT"[206]OW YOU WILL SEE A BOX AS DEFINED...."
  68. 660 X=10:Y=8:X1=15:Y1=8:COL=4:CH=1:GOSUB10000
  69. 670 PRINT"[206]EXT IS A DEMO OF RANDOM BOXES OF"
  70. 680 PRINT"OF RANDOM COLOURS AT RANDOM POSITIONS."
  71. 690 PRINT"[212]O EXIT THE NEXT SCREEN, PRESS [211][208][193][195][197][146]"
  72. 700 GOSUB990
  73. 710 PRINT"[147]":POKE53272,21:PRINTCHR$(8):A=RND(-TI)
  74. 720 X=INT(RND(1)*29)+1 : Y=INT(RND(1)*13)+1
  75. 730 X1=INT(RND(1)*10)+1: Y1=INT(RND(1)*10)+1:X1=X1+1:Y1=Y1+1
  76. 740 COL=INT(RND(1)*15)+1 : CH=INT(RND(1)*3)+1
  77. 750 GOSUB10000
  78. 760 GETS$:IFS$=" "THEN800
  79. 770 GOTO720
  80. 800 PRINT"[147]":POKE53272,23
  81. 810 PRINT"[198]INAL [211]ECTION - [204][201][212][197] [205][197][206][213][211]!"
  82. 820 PRINT"[215]ITH THE FIVE SUBJECT TITLES YOU "
  83. 830 PRINT"TYPED IN, [204][201][212][197][160][205][197][206][213][211]! WILL CREATE A "
  84. 840 PRINT"MENU WITH A HI-LIGHT BAR USING THE"
  85. 850 PRINT"THE TECHNIQUES USED DURING THIS DEMO."
  86. 860 PRINT"[201] HOPE THAT THIS DEMO WILL HELP YOU "
  87. 870 PRINT"CREATE MENUS WITH THE MINIMUM OF WORK."
  88. 880 PRINT"[198]OR FURTHER ASSISTANCE, PLEASE READ"
  89. 890 PRINT"[195]OMMODORE [196]ISK [213]SER."
  90. 900 GOSUB990:PRINT"[147]":POKE53272,21
  91. 905 PRINT"[147]DEMO MENU SET UP BY  YOU!! [146]"
  92. 907 PRINT"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  93. 908 PRINT"  CRSR [146] (EXECUTE)   RETURN [146] (SELECT)"
  94. 910 X=DX:Y=DY:X1=LEN(O$(DL))+2:Y1=7:COL=3:CH=2:GOSUB10000
  95. 920 PRINT""
  96. 930 X=X+1:Y=Y+1:GOSUB12000
  97. 940 FORJ=1TO5:PRINT TAB(DX+1);O$(J):NEXTJ
  98. 950 MIN=1:MAX=5:PS=Y-1:A=1:TA=X:GOSUB11000
  99. 960 FORJ=1TO1000:NEXTJ:PRINT"";:FORJ=1TO998:PRINT"  [146][157][157] ";:NEXTJ:PRINT"[147]"
  100. 970 POKE53272,23:PRINTCHR$(8);
  101. 972 PRINT"[147][212]HANK YOU FOR USING THIS DEMO."
  102. 974 PRINT"[208]LEASE FEEL FREE TO ADD [204][201][212][197] [205][197][206][213][211]! TO"
  103. 976 PRINT"YOUR OWN PROGRAMS, BUT IT WOULD BE"
  104. 978 PRINT"NICE TO SEE AN ACKNOWLEDGEMENT FOR "
  105. 980 PRINT"USING IT IN YOUR OWN CREATIONS."
  106. 982 PRINT"[204][201][212][197][160][205][197][206][213][211]! MENU SYSTEM CREATED BY"
  107. 984 PRINT"[205]ADHU [211]URENDRANATH.  [202]ANUARY 1991."
  108. 989 END
  109. 990 PRINT"      [208]RESS < [211][208][193][195][197] > [212]O [195]ONTINUE [146]"
  110. 992 GETS$:IFS$=""THEN992
  111. 993 IFS$=" "THEN RETURN
  112. 994 GOTO 992
  113. 999 END
  114. 10000 REM *****************************
  115. 10010 REM * LITE MENUS! O/S VERSION 1 *
  116. 10020 REM *        CREATED BY         *
  117. 10030 REM *  MADHU SURENDRANATH (16)  *
  118. 10040 REM *  (C) COPYRIGHT JAN. 1991  *
  119. 10050 REM *****************************
  120. 10060 IF CH=1 THEN C$(1)="[166]":C$(2)="[166]":C$(3)="[166]":C$(4)="[166]":C$(5)="[166]":C$(6)="[166]"
  121. 10070 IF CH=2 THEN C$(1)="[176]":C$(2)="[195]":C$(3)="[174]":C$(4)="[194]":C$(5)="[173]":C$(6)="[189]"
  122. 10080 IF CH=3 THEN C$(1)="[213]":C$(2)="[195]":C$(3)="[201]":C$(4)="[194]":C$(5)="[202]":C$(6)="[203]"
  123. 10090 OC=PEEK(646):POKE 646,COL
  124. 10100 POKE 781,Y:POKE782,X:SYS 65520
  125. 10110 PRINT C$(1);:FOR A=1 TO X1-2
  126. 10120 PRINT C$(2);:NEXT:PRINT C$(3)
  127. 10130 FOR A=1 TO Y1-2
  128. 10140 PRINT TAB(X) C$(4) TAB(X+X1-1) C$(4)
  129. 10150 NEXT A
  130. 10160 PRINT TAB(X) C$(5);:FOR A=1 TO X1-2
  131. 10170 PRINT C$(2);:NEXT:PRINT C$(6)
  132. 10180 POKE 646,OC
  133. 10190 RETURN
  134. 11000 REM ** FLASH/MENU **
  135. 11010 Y=PS+A
  136. 11020 POKE 781,Y:POKE 782,TA:SYS65520
  137. 11030 POKE 199,1:PRINT O$(A);:POKE199,0
  138. 11040 GET A$:IFA$<>""ANDA$<>"[145]"ANDA$<>CHR$(13)THEN11040
  139. 11050 IFA$=""THEN B=A:A=A+1:GOTO11080
  140. 11060 IFA$="[145]"THEN B=A:A=A-1:GOTO11100
  141. 11070 IFA$=CHR$(13) THEN ZZ=Y:GOTO11120
  142. 11080 IFB=MAX THENA=MIN:POKE781,Y:POKE782,TA:SYS65520:PRINTO$(B):B=MIN:GOTO11010
  143. 11090 IFB<>MAX THEN POKE781,PS+B:POKE782,TA:SYS65520:PRINTO$(B):GOTO11010
  144. 11100 IFB=MIN THENA=MAX:POKE781,Y:POKE782,TA:SYS65520:PRINTO$(B):B=MAX:GOTO11010
  145. 11110 IFB<>MIN THEN POKE781,PS+B:POKE782,TA:SYS65520:PRINTO$(B):GOTO11010
  146. 11120 Y=ZZ:FORL=1 TO 4
  147. 11130 POKE 646,11:GOSUB11180
  148. 11140 POKE 646,12:GOSUB11180
  149. 11150 POKE 646,15:GOSUB11180
  150. 11160 NEXT L
  151. 11170 RETURN
  152. 11180 PRINT"":FORG=1TO(ZZ-1):PRINT"";:NEXTG:PRINTTAB(TA);
  153. 11190 POKE199,1:PRINTO$(A):POKE199,0:FORQ=1TO10:NEXTQ
  154. 11200 RETURN
  155. 12000 REM * PRINT AT *
  156. 12010 POKE 781,Y:POKE782,X:SYS65520
  157. 12020 RETURN
  158.